home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
alph100p.zip
/
TEMPLATE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-11-02
|
826b
|
37 lines
{$A+,B-,D-,E-,F-,G-,I+,L+,N-,O-,R+,S+,V+,X-}
program template;
uses
wow,
ALPHA;
procedure PrimaryFileExit; Far;
begin
{-vvvv PUT YOUR VERY LAST SCREEN DISPLAY & CODE HERE vvvvvvv-}
{-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^-}
end;
procedure StartUp;
begin
LastProc:=@PrimaryFileExit; { if you want ALPHA to Add a Main Exit Procedure }
MakeAlphaChoice(Cga16_Mode); { Informs ALPHA of what Program Mode you want }
{----------------------------------------------------}
TextMode(CO80); { If you want to select a specific Text Mode then do it first}
{----------------------------------------------------}
end;
procedure Run; { What you normally would put between you Main begin..End. routine}
begin
end;
begin
StartUp;
Run;
end.